home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / form03.clssa < prev    next >
Text File  |  1995-01-20  |  2KB  |  69 lines
  1. /***********************************************************************
  2.   GADGET: "AA-DCTV" "4" AUTO TYP: "?"
  3.  
  4.   $DAT >>Form03.clssa<<       24.02.1993 - (C) ProDAD Holger Burkarth
  5.                               16.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9. Address clariSSA
  10.  
  11.   FailAt 99
  12.   AltFail=RESULT
  13.  
  14.  
  15.   DO FOREVER
  16.     Anims=""
  17.     GetAnimInfo Source_A
  18.     IF RESULT~='' THEN Anims=Anims||" Source_A "
  19.     GetAnimInfo Source_B
  20.     IF RESULT~='' THEN Anims=Anims||" Source_B "
  21.     GetAnimInfo Source_C
  22.     IF RESULT~='' THEN Anims=Anims||" Source_C "
  23.     GetAnimInfo Source_D
  24.     IF RESULT~='' THEN Anims=Anims||" Source_D "
  25.  
  26.     IF Anims~='' THEN DO
  27.       SelectAnim Anims "TITLE 'Wählen Sie die DCTV-Animtion@zur Anpassung an AA (A4000,A1200) aus.' REQ"
  28.       IF RC~=0 THEN LEAVE
  29.       WAnim=RESULT
  30.       SelectAnim WAnim
  31.  
  32.       GetAnimInfo
  33.       PARSE VAR RESULT . "FORMAT" format "VIEWMODE" viewmode "FRAMES" Max .
  34.       PARSE VAR format x y t
  35.       CloseAnim MASTER
  36.  
  37.       IF FIND(viewmode,"HIRES")=0 | t<3 | t>4 THEN DO
  38.         BOOLRequest "'Es liegt keine DCTV-Animation vor!?''''Soll dennoch umgewandelt werden?'"
  39.         IF RC~=0 | RESULT="NO" THEN LEAVE
  40.       END
  41.  
  42.       IF FIND(viewmode,"LACE")=0 THEN DO
  43.         y=y*2
  44.         viewmode=viewmode "LACE"
  45.       END
  46.  
  47.       IF y>562 THEN DO
  48.         OpenAnim MASTER  "FORMAT" x 562 t "VIEWMODE" viewmode
  49.         IF RC~=0 THEN LEAVE
  50.         SelectAnim WAnim
  51.         Record AREA
  52.         IF RC~=0 THEN LEAVE
  53.         BOOLRequest "'Alte Animimation aus dem Register''"WAnim" entfernen?'"
  54.         IF RESULT="YES" THEN CloseAnim WAnim
  55.         SelectAnim MASTER
  56.         SSAControl DDOPlayAlloc
  57.       END
  58.       ELSE Message "'Umwandlung wird nicht benötig!'"
  59.  
  60.     END
  61.     ELSE Message "'Keine Source-Animation vorhanden!''''Sie müssen zuerst die DCTV-Animation''in ein Source-Register laden.'"
  62.  
  63.     LEAVE
  64.   END
  65.  
  66.  
  67.   FailAt AltFail
  68. exit
  69.